home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / STEPS.TXT < prev    next >
Text File  |  1991-08-20  |  2KB  |  187 lines
  1. ;
  2. ;  STEPS -- SUBR FOR FOOTPRINTS AROUND PLANT (c) Copyright 1990 Chris Butler
  3. ;
  4.  
  5. ;video m
  6.  
  7. goto mgr
  8. engr:
  9.   set prev_steps 0
  10.   set new_steps  9
  11.   goto top
  12. sched:
  13.   set prev_steps 9
  14.   set new_steps  17
  15.   goto top
  16. invntry:
  17.   set prev_steps 26
  18.   set new_steps 12
  19.   goto top
  20. accounting:
  21.   set prev_steps 38
  22.   set new_steps 26
  23.   goto top
  24. mis:
  25.   set prev_steps 64
  26.   set new_steps 22
  27.   goto top
  28. mgr: 
  29.   set prev_steps 86
  30.   set  new_steps 23
  31.   goto top 
  32.  
  33. ; load footprints
  34. top: 
  35.  
  36. tran on 15
  37. cload stepr.clp 1 0 1
  38. cload stepd.clp 3 0 1
  39. cload stepl.clp 5 0 1
  40. cload stepu.clp 7 0 1
  41.  
  42. ; display previous steps
  43.  
  44. pload plan.pcx 1
  45. PALETTE 1    ; TEMP
  46. psetbuf 1
  47. pfade 0 2
  48.  
  49. databegin walk
  50. set i 0
  51. if @prev_steps==0 sillylogic
  52. mark @prev_steps
  53.   putup @ @ @
  54.   set i @i+1
  55. loop
  56. sillylogic:
  57. psetbuf 
  58. pfade 5 1
  59.  
  60. ;  display new steps
  61.  
  62. waitkey 100
  63. mark @new_steps
  64.   putup @ @ @
  65.   set i @i+1
  66.   waitkey 10
  67. loop
  68. return
  69.  
  70. walk:
  71.   180 150 1
  72.   195 155 1
  73.   210 150 1
  74.   225 155 1
  75.   240 150 1
  76.   255 155 1
  77.   261 142 3
  78.   267 132 3
  79.   261 122 3
  80.  
  81.   268 110 1
  82.   273 116 1
  83.   283 125 7
  84.   276 135 7
  85.   283 142 7
  86.   282 155 1  
  87.   297 150 1  
  88.   312 155 1
  89.   327 150 1
  90.   342 155 1
  91.   357 150 1
  92.   372 155 1
  93.   387 150 1
  94.   402 155 1
  95.   408 140 3
  96.   414 130 3
  97.   408 120 3
  98.  
  99.   415 108 1
  100.   420 114 1
  101.   430 124 7
  102.   423 134 7
  103.   440 133 1
  104.   455 138 1
  105.   470 133 1
  106.   485 138 1
  107.   500 133 1
  108.   510 138 1
  109.   510 128 3
  110.   516 118 3
  111.  
  112.   523 106 1
  113.   523 122 7
  114.   530 132 7
  115.   523 142 7
  116.   530 152 7
  117.   515 158 5
  118.   505 165 5 
  119.   495 158 5
  120.   490 165 5
  121.   475 170 7
  122.   482 180 7
  123.   475 190 7
  124.   482 200 7
  125.   475 210 7
  126.   482 220 7
  127.   475 230 7
  128.   482 240 7
  129.   475 250 7
  130.   482 260 7
  131.   475 270 7
  132.   482 280 7
  133.   475 290 7
  134.   482 300 7
  135.   475 310 7
  136.   482 320 7
  137.   475 330 7
  138.  
  139.   482 340 7
  140.   470 346 5
  141.   462 353 5 
  142.   452 346 5
  143.   442 353 5
  144.   432 346 5
  145.   422 353 5
  146.   412 346 5
  147.   402 353 5
  148.   392 346 5
  149.   382 353 5
  150.   372 346 5
  151.   362 353 5
  152.   352 346 5
  153.   342 353 5
  154.   332 346 5
  155.   322 353 5
  156.   320 340 3
  157.   313 330 3
  158.   320 320 3
  159.   313 310 3  
  160.   320 300 3  
  161.   
  162.   315 292 5 
  163.   310 300 5
  164.   300 300 7  
  165.   305 310 7
  166.   300 320 7
  167.   305 330 7
  168.   300 340 7
  169.   305 350 7
  170.   293 346 5
  171.   283 353 5
  172.   273 346 5
  173.   263 353 5
  174.   253 346 5
  175.   243 353 5
  176.   233 346 5
  177.   223 353 5
  178.   213 346 5
  179.   203 353 5
  180.   193 346 5
  181.   183 353 5
  182.   173 346 5
  183.   163 353 5
  184.   153 346 5
  185.  
  186. dataend
  187.